Imports System.IO

Partial Class Alben
    Inherits System.Web.UI.Page
    Public pVerz As String

    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        If Not IsPostBack Then
            panGallerie.Visible = True
            panDiashow.Visible = False
        End If
    End Sub
    Private Sub AlbenFS_OKClick(ByVal sender As Object, ByVal e As EventArgs) Handles FS.OKClick
        thumbs.Verz = FS.Auswahl

    End Sub
    Private Sub thumbs_OKClick(ByVal Pfad As String) Handles thumbs.OKClick
        panGallerie.Visible = False
        panDiashow.Visible = True
        diashow.Verz = Pfad
        diashow.Init3()
        diashow.show_files()
    End Sub
    Private Sub diashow_IndexClick() Handles diashow.IndexClick
        panGallerie.Visible = True
        panDiashow.Visible = False
    End Sub
End Class
